Nuprl Lemma : unzip_wf
4,23
postcript
pdf
T1
,
T2
:Type,
as
:(
T1
T2
) List. unzip(
as
)
(
T1
List)
(
T2
List)
latex
Definitions
t
T
,
x
:
A
.
B
(
x
)
,
x
.
t
(
x
)
,
2of(
t
)
,
map(
f
;
as
)
,
1of(
t
)
,
unzip(
as
)
Lemmas
pi1
wf
,
map
wf
,
pi2
wf
origin
T1, T2:Type, as:(T1
T2) List. unzip(as) 
(T1 List)(T2 List) T1, T2:Type, as:(T1T2) List. unzip(as) (T1 List)(T2 List) Tx:A. B(x)
x. t(x)